100 T=1:D$="[211]UCHPROGRAMM '[201]LLEGAL [212]+[211]'
110 [153]"LOAD"[163]8)D$"
120 PRINT"         [196][146]RUCKER ODER [211][146]CREEN
130 [161]DS$:[139]DS$[178]""[167]130
140 DR[178]0:[139]DS$[178]"D"[167]DR[178]1
150 [139]DR[178]1[167][159]4,4:[152]4," T";
160 [153]"LOAD"[163]8)D$"
170 PRINT" [201]NPUT [201]LLEGAL [212]RACK , [211]ECTOR
180 [133]" (null),(null)";Y,Z
190 [153]" ATNBBRECHEN MIT '(null)'
200 OPEN1,8,15,"I":OPEN2,8,2,"#"
210 IFT<36THENFORS=0TO16
220 IFT<31THENFORS=0TO17
230 IFT<25THENFORS=0TO18
240 IFT<18THENFORS=0TO20
250 PRINT#1,"U1 2 0 "T" "S
260 PRINT#1,"B-P 2 0"
270 GET#2,A$,B$
280 GETQ$:IFQ$="Q"THEN350
290 IFA$=""THENA$=CHR$(0)
300 IFB$=""THENB$=CHR$(0)
310 A=ASC(A$):B=ASC(B$)
320 IFA=YANDB=ZTHENPRINT" GEFUNDEN IN [212]RACK"T",[211]EKTOR"S
330 IFDR=1THEN:IFA=YANDB=ZTHENPRINT#4,TAB(10)" [199]EFUNDEN IN [212]RACK"T",[211]EKTOR"S
340 NEXTS:IFT<35THENT=T+1:GOTO210
345 IFDR=1THENPRINT#4:CLOSE4
350 CLOSE2:CLOSE1